object mdtemp: Tmdtemp
  OldCreateOrder = False
  Height = 420
  Width = 636
  object QdsTecnicos: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 50
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from TEMPTECNICOS'
      'where'
      '  ID_CHAVE = :OLD_ID_CHAVE')
    InsertSQL.Strings = (
      'insert into TEMPTECNICOS'
      
        '  (ID_CHAVE, TEC_CELCLARO, TEC_CELOI, TEC_CELTIM, TEC_CELVIVO, T' +
        'EC_EMAIL, '
      
        '   TEC_ID, TEC_IDEX, TEC_LOGIN, TEC_LOGINEX, TEC_NOME, TEC_PASS,' +
        ' TEC_PASSEX, '
      '   TEC_SITE, TEC_TEL)'
      'values'
      
        '  (:ID_CHAVE, :TEC_CELCLARO, :TEC_CELOI, :TEC_CELTIM, :TEC_CELVI' +
        'VO, :TEC_EMAIL, '
      
        '   :TEC_ID, :TEC_IDEX, :TEC_LOGIN, :TEC_LOGINEX, :TEC_NOME, :TEC' +
        '_PASS, '
      '   :TEC_PASSEX, :TEC_SITE, :TEC_TEL)'
      ' returning (ID_CHAVE);')
    RefreshSQL.Strings = (
      'Select '
      '  ID_CHAVE,'
      '  TEC_ID,'
      '  TEC_NOME,'
      '  TEC_LOGIN,'
      '  TEC_PASS,'
      '  TEC_EMAIL,'
      '  TEC_SITE,'
      '  TEC_TEL,'
      '  TEC_CELTIM,'
      '  TEC_CELCLARO,'
      '  TEC_CELVIVO,'
      '  TEC_CELOI,'
      '  TEC_IDEX,'
      '  TEC_LOGINEX,'
      '  TEC_PASSEX'
      'from TEMPTECNICOS '
      'where'
      '  ID_CHAVE = :ID_CHAVE')
    SelectSQL.Strings = (
      'SELECT * FROM TEMPTECNICOS'
      'WHERE ID_CHAVE=:PARAMS')
    ModifySQL.Strings = (
      'update TEMPTECNICOS'
      'set'
      '  ID_CHAVE = :ID_CHAVE,'
      '  TEC_CELCLARO = :TEC_CELCLARO,'
      '  TEC_CELOI = :TEC_CELOI,'
      '  TEC_CELTIM = :TEC_CELTIM,'
      '  TEC_CELVIVO = :TEC_CELVIVO,'
      '  TEC_EMAIL = :TEC_EMAIL,'
      '  TEC_ID = :TEC_ID,'
      '  TEC_IDEX = :TEC_IDEX,'
      '  TEC_LOGIN = :TEC_LOGIN,'
      '  TEC_LOGINEX = :TEC_LOGINEX,'
      '  TEC_NOME = :TEC_NOME,'
      '  TEC_PASS = :TEC_PASS,'
      '  TEC_PASSEX = :TEC_PASSEX,'
      '  TEC_SITE = :TEC_SITE,'
      '  TEC_TEL = :TEC_TEL'
      'where'
      '  ID_CHAVE = :OLD_ID_CHAVE')
    ParamCheck = True
    UniDirectional = False
    Left = 32
    Top = 176
    object QdsTecnicosID_CHAVE: TIntegerField
      FieldName = 'ID_CHAVE'
      Origin = '"TEMPTECNICOS"."ID_CHAVE"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object QdsTecnicosTEC_ID: TIntegerField
      FieldName = 'TEC_ID'
      Origin = '"TEMPTECNICOS"."TEC_ID"'
    end
    object QdsTecnicosTEC_NOME: TIBStringField
      FieldName = 'TEC_NOME'
      Origin = '"TEMPTECNICOS"."TEC_NOME"'
      Size = 50
    end
    object QdsTecnicosTEC_LOGIN: TIBStringField
      FieldName = 'TEC_LOGIN'
      Origin = '"TEMPTECNICOS"."TEC_LOGIN"'
      Size = 15
    end
    object QdsTecnicosTEC_PASS: TIBStringField
      FieldName = 'TEC_PASS'
      Origin = '"TEMPTECNICOS"."TEC_PASS"'
      Size = 15
    end
    object QdsTecnicosTEC_EMAIL: TIBStringField
      FieldName = 'TEC_EMAIL'
      Origin = '"TEMPTECNICOS"."TEC_EMAIL"'
      Size = 50
    end
    object QdsTecnicosTEC_SITE: TIBStringField
      FieldName = 'TEC_SITE'
      Origin = '"TEMPTECNICOS"."TEC_SITE"'
      Size = 50
    end
    object QdsTecnicosTEC_TEL: TIBStringField
      FieldName = 'TEC_TEL'
      Origin = '"TEMPTECNICOS"."TEC_TEL"'
      Size = 15
    end
    object QdsTecnicosTEC_CELTIM: TIBStringField
      FieldName = 'TEC_CELTIM'
      Origin = '"TEMPTECNICOS"."TEC_CELTIM"'
      Size = 15
    end
    object QdsTecnicosTEC_CELCLARO: TIBStringField
      FieldName = 'TEC_CELCLARO'
      Origin = '"TEMPTECNICOS"."TEC_CELCLARO"'
      Size = 15
    end
    object QdsTecnicosTEC_CELVIVO: TIBStringField
      FieldName = 'TEC_CELVIVO'
      Origin = '"TEMPTECNICOS"."TEC_CELVIVO"'
      Size = 15
    end
    object QdsTecnicosTEC_CELOI: TIBStringField
      FieldName = 'TEC_CELOI'
      Origin = '"TEMPTECNICOS"."TEC_CELOI"'
      Size = 15
    end
    object QdsTecnicosTEC_IDEX: TIBStringField
      FieldName = 'TEC_IDEX'
      Origin = '"TEMPTECNICOS"."TEC_IDEX"'
      Size = 15
    end
    object QdsTecnicosTEC_LOGINEX: TIBStringField
      FieldName = 'TEC_LOGINEX'
      Origin = '"TEMPTECNICOS"."TEC_LOGINEX"'
      Size = 15
    end
    object QdsTecnicosTEC_PASSEX: TIBStringField
      FieldName = 'TEC_PASSEX'
      Origin = '"TEMPTECNICOS"."TEC_PASSEX"'
      Size = 15
    end
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'SRV-DB:E:\SUPPORTTI\DADOSGRD.FDB'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey'
      '')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    ServerType = 'IBServer'
    AllowStreamedConnected = False
    Left = 32
    Top = 8
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    AutoStopAction = saCommit
    Left = 104
    Top = 48
  end
  object SQLScript: TIBSQL
    Database = IBDatabase1
    Transaction = IBTransaction1
    Left = 88
    Top = 120
  end
  object QdsMaquinas: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 100
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from TEMPMAQUINAS'
      'where'
      '  ID_CHAVE = :OLD_ID_CHAVE')
    InsertSQL.Strings = (
      'insert into TEMPMAQUINAS'
      
        '  (ID_CHAVE, MAQ_CPUCLOCK, MAQ_CPUUSO, MAQ_DESCRICAO, MAQ_DOMINI' +
        'O, MAQ_DTCAD, '
      
        '   MAQ_DTUPD, MAQ_FUNCAO, MAQ_ID, MAQ_IPANT, MAQ_IPATUAL, MAQ_IP' +
        'MACANT, '
      
        '   MAQ_IPMACATUAL, MAQ_MEMQTD, MAQ_MEMUSO, MAQ_NOME, MAQ_SO, MAQ' +
        '_STATUS, '
      
        '   MAQ_ULTERROR, MAQ_UPDPULSER, MAQ_USADOPOR, MAQ_USER, MAQ_USER' +
        'ATIVO)'
      'values'
      
        '  (:ID_CHAVE, :MAQ_CPUCLOCK, :MAQ_CPUUSO, :MAQ_DESCRICAO, :MAQ_D' +
        'OMINIO, '
      
        '   :MAQ_DTCAD, :MAQ_DTUPD, :MAQ_FUNCAO, :MAQ_ID, :MAQ_IPANT, :MA' +
        'Q_IPATUAL, '
      
        '   :MAQ_IPMACANT, :MAQ_IPMACATUAL, :MAQ_MEMQTD, :MAQ_MEMUSO, :MA' +
        'Q_NOME, '
      
        '   :MAQ_SO, :MAQ_STATUS, :MAQ_ULTERROR, :MAQ_UPDPULSER, :MAQ_USA' +
        'DOPOR, '
      '   :MAQ_USER, :MAQ_USERATIVO)')
    RefreshSQL.Strings = (
      'Select '
      '  ID_CHAVE,'
      '  MAQ_ID,'
      '  MAQ_IPATUAL,'
      '  MAQ_IPANT,'
      '  MAQ_IPMACATUAL,'
      '  MAQ_IPMACANT,'
      '  MAQ_NOME,'
      '  MAQ_DOMINIO,'
      '  MAQ_DTCAD,'
      '  MAQ_DTUPD,'
      '  MAQ_FUNCAO,'
      '  MAQ_USADOPOR,'
      '  MAQ_USER,'
      '  MAQ_USERATIVO,'
      '  MAQ_SO,'
      '  MAQ_STATUS,'
      '  MAQ_CPUUSO,'
      '  MAQ_CPUCLOCK,'
      '  MAQ_MEMUSO,'
      '  MAQ_MEMQTD,'
      '  MAQ_DESCRICAO,'
      '  MAQ_ULTERROR,'
      '  MAQ_UPDPULSER'
      'from TEMPMAQUINAS '
      'where'
      '  ID_CHAVE = :ID_CHAVE')
    SelectSQL.Strings = (
      'SELECT *'
      ''
      'FROM TEMPMAQUINAS'
      ''
      'WHERE ID_CHAVE= :PARAMS')
    ModifySQL.Strings = (
      'update TEMPMAQUINAS'
      'set'
      '  ID_CHAVE = :ID_CHAVE,'
      '  MAQ_CPUCLOCK = :MAQ_CPUCLOCK,'
      '  MAQ_CPUUSO = :MAQ_CPUUSO,'
      '  MAQ_DESCRICAO = :MAQ_DESCRICAO,'
      '  MAQ_DOMINIO = :MAQ_DOMINIO,'
      '  MAQ_DTCAD = :MAQ_DTCAD,'
      '  MAQ_DTUPD = :MAQ_DTUPD,'
      '  MAQ_FUNCAO = :MAQ_FUNCAO,'
      '  MAQ_ID = :MAQ_ID,'
      '  MAQ_IPANT = :MAQ_IPANT,'
      '  MAQ_IPATUAL = :MAQ_IPATUAL,'
      '  MAQ_IPMACANT = :MAQ_IPMACANT,'
      '  MAQ_IPMACATUAL = :MAQ_IPMACATUAL,'
      '  MAQ_MEMQTD = :MAQ_MEMQTD,'
      '  MAQ_MEMUSO = :MAQ_MEMUSO,'
      '  MAQ_NOME = :MAQ_NOME,'
      '  MAQ_SO = :MAQ_SO,'
      '  MAQ_STATUS = :MAQ_STATUS,'
      '  MAQ_ULTERROR = :MAQ_ULTERROR,'
      '  MAQ_UPDPULSER = :MAQ_UPDPULSER,'
      '  MAQ_USADOPOR = :MAQ_USADOPOR,'
      '  MAQ_USER = :MAQ_USER,'
      '  MAQ_USERATIVO = :MAQ_USERATIVO'
      'where'
      '  ID_CHAVE = :OLD_ID_CHAVE')
    ParamCheck = True
    UniDirectional = False
    Left = 32
    Top = 232
  end
  object QRY: TIBQuery
    BufferChunks = 100
    CachedUpdates = False
    ParamCheck = True
    Left = 24
    Top = 80
  end
  object QdsRedDom: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 100
    CachedUpdates = False
    SelectSQL.Strings = (
      'SELECT * FROM TEMPREDDOM')
    ParamCheck = True
    UniDirectional = False
    Left = 32
    Top = 289
  end
end
